home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue64 / construc / WebMod.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2000-11-01  |  1.1 KB  |  43 lines
  1. unit WebMod;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, HTTPApp;
  5.  
  6. type
  7.   TWebModule1 = class(TWebModule)
  8.     procedure WebModule1WebActionItem1Action(Sender: TObject;
  9.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  10.   private
  11.     { Private declarations }
  12.   public
  13.     { Public declarations }
  14.   end;
  15.  
  16. var
  17.   WebModule1: TWebModule1;
  18.  
  19. implementation
  20.  
  21. {$R *.DFM}
  22.  
  23. procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  24.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  25. begin
  26.   Response.ContentType := 'text/vnd.wap.wml';
  27.   Response.Content := '<?xml version="1.0"?>'#13#10 +
  28.     '<!DOCTYPE wml PUBLIC ' +
  29.     '"-//WAPFORUM//DTD WML 1.1//EN" '+
  30.     '"http:///www.wapforum.org/DTD/wml_1.1.xml">'#13#10#13#10 +
  31.     '<wml>'#13#10 +
  32.     '<card id="Balance" title="Account Balance">'#13#10 +
  33.     '<p>'#13#10 +
  34.     '<table columns="2"><tr>' +
  35.     '<td><em>Account:<br/>Balance:</em></td><td>' +
  36.      Request.ContentFields.Values['Account'] + '<br/>' + 'xxxxx'#13#10 +
  37.     '</td></tr></table></p>'#13#10 +
  38.     '</card>'#13#10 +
  39.     '</wml>';
  40. end;
  41.  
  42. end.
  43.